(insert-directory): Fix previous change.

diff --git a/lisp/files.el b/lisp/files.el
index a7414a787e3b9428f5008a5136698f4ca129534b..100b1e6ac21c2ad7d5f8123edae12e79e6d79a53 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2661,7 +2661,7 @@ If WILDCARD, it also runs the shell specified by `shell-file-name'."
                             (setq list (cons (substring switches 0 (match-beginning 0))
                                              list)
                                   switches (substring switches (match-end 0))))
-                          (setq list (cons (nreverse switches) list)))))
+                          (setq list (nreverse (cons switches list))))))
                   (append list
                           (list
                            (if full-directory-p